VAR_THETA_INIT = 8
VAR_ONE = 1
VAR_THETA = 6
VAR_THETA_MAX = 15
VAR_THETA_MIN = 0

--dummy command
CLR A

LOAD &VAR_THETA_INIT&,A
STOR A, &VAR_THETA&

SINLUT &VAR_THETA&, A, *ptrloop*
LOAD &VAR_THETA&,A
LOAD &VAR_ONE&,B
ADD A
STOR A, &VAR_THETA&
JMP &ptrloop&